Sub Command1_Click () main.Enabled = True tools.Enabled = True main.Show about.Hide End Sub